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14-Sep-19 
itle "RMSFDL = Generate FDL for a File’ 
module rmsfdl 
ident="V04-000') = begin 


4 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
ONLY IN ACCORDANCE WITH THE TERMS 

INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT 
COPIES THEREOF MAY NOT BE PROVIDED 


—o 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


A 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBIL 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PEPE SE SSSI ESE SESE SEE ESE TEESE SESS EEE ESSE SS ESE EERE REESE EET ESSE EERSTE ET SEE SY 
i] 


+ 


additional similar files, or modify the FDL and create 
different sorts of file. | : 
See ‘Functional Specification for FDL - VAX-11 RMS File 
Definition Language’’ by Ken Henderson. 


Environment: 


' Author: Paul C. Anagnostopoulos, Creation Date: 14 July 1981 


Modified By: 


v03-006 DGB0049 Donald G. Blair Oo-Ray= 1906 
Fix condition handling so ANALYZRMS returns the correct 
error status at spoge exit. Change condition handler 

from ANLSCONDITION_HANDLER to ANLSUNWIND_HANDLER. 


v03-005 PCA1012 Paul C. Anagnostopoulos 6-Apr-1983_ 
Add code to support the new total area allocation field 
in the area descriptor. 


v03-004 PCA1011 Paul C. Anagnostopoulos 1-Apr-1983 
Change the message prefix to ANLRMS$_ to ensure that 


E USED AND COPIED 
OF SUCH LICENSE AND WITH THE 
WARE OR ANY OTHER 
OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ITY FOR THE USE OR RELIABILITY OF ITS 


LR ReReR ARERR AARAEAEAAEEAAAE ARETE EATER RAR ARERR Eee eee Ree 
' 
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Facility: VAX/VMS Analyze Facility, Generate FDL for a File 
! Abstract: This module is responsible For Penergstng the File Definition 
Language (FDL) for an extant file. The user can then create 


J 6 
RMSFDL = Generate FDL for a File 16-Sep-1984 90:06:41 AX-11 Oi fegeze V4.0-74 
14-Sep-1984 11:55:00 ANALYZ.SRCIRMSFDL.B32; 


message symbols are unique across all ANALYZEs. This 
is necessitated by the new merged message files. 


1 ' 

1 4 
0060 1! 
0061 1! v03-003 PCA1002 Paul C. Anagnostopoulos 25-Oct-1982 
0062 1! Change the wey that FOL Lines wit quoted gtr ings are 
0065 1! produced so that they use the new ANLSPREPARE QUOTED_STRING 
0064 1! routine. Remove all FDL pertaining to area allocation. 
Spe? : } Add the new quadword key data types. 
0067 1! v03-001 PCA0008 Paul Anagnostopoulos 16-Mar-1982 
0068 1! Put out an allocation in the area oC inery of an FDL spec. 
0069 1! Even though it might not be the entire allocation, 
Baoy : something is better than nothing. 
0072 1! v03-002 PCA0007 Paul Anagnostopoulos 16-Mar-1982 
0073 1! Don't put out the compression secondaries in a prologue 2 
0074 : FDL spec. 


Page 
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RMSF OL RMSFDL = Generate FDL for a File 16-Sep-1984 90:06:41 ort Bliss-32 V4.0-742 Page 
v04-000 Module Declarations 14-Sep-1984 11:55:00 ANALYZ.SRCIJRMSFDL.B32;1 
77 0076 1 Xsbttl "Module Declarations’ 
78 0077 1! : ‘ 
79 one 1 ! Libraries and Requires: 
0 0079 1! 
1 0080 1 ; 
8 0081 1 Library ‘lib’; 
8 0082 1 require 'rmsreq'; 
84 0591 1 
85 R206 1! 
86 0595 1 ! Table of Contents: 
87 0594 1! 
88 0595 1 ; 
89 B238 1 forward routine 
90 0597 1 anl$fdl_mode: novalue, 
91 0598 1 anl$fdl_record: novalue, 
S 0599 1 anl$fdl_areas: novalue, 
) 0600 1 anl$fdt_keys: novalue, 
94 0601 1 anl$analyze_areas: novalue, 
95 0602 1 anl$analyze_keys: novalue; 
96 060 ] 
97 0604 ‘ 
98 0605 1 ! External References: 
99 0606 1! 
100 0607 1 . 
101 0608 1 external routine i 
ine 0609 1 anl$area_descriptor, 
10 0610 1 anl$bucket, 
104 0611 1 anl$fdl_analysis_of_area, 
105 0612 1 anl$fdl_analysis_of_key, 
106 0613 1 anl$fdl_file 
107 0614 1 an $format_line, 
108 0615 1 ents Taraes. ok tp. 
109 0616 1 anlSidx_check_key_stuff, 
110 0617 1 anl$key_descriptor, 
111 9618 1 anl$open_next_rms file, 
112 0619 1 anl$prepare_quoted_string, 
113 0620 1 an\$prepare report_file, 
114 0621 1 anl($unwind_Randler, 
115 Roce 1 anl$3reclatmed_bucket_header, 
116 06235 1 cli$get_value: addresSing_mode(general), 
117 0624 1 Lib$establish: addressing _mode(general); 
118 0625 1 
119 0626 1 external 
120 0627 1 anl$gl_fat: ref block(,bytel, 
121 0628 1 anl$gw_prolog: word; 
\$¢ +404 1 
12 0650 1! é 
124 0631 1 ! Own Variables: 
125 Bo36 1! ; : : y 
\s6 oth : ! The following Little table is for putting out boolean items. 
128 0635 1 own pth 
\¢ 0636 1 yes_no: vector([2,long) initial( | 
130 0637 1 uplit byte (Zascic ‘no') 
131 0638 1 uplit byte (%ascic ‘yes’ 
132 0639 1 a3 
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RMSFD RMSFDL = Generate FDL for a File ibese -1984 00:02:41 AX-11 Bliss-32 V4.0-74 Page 
_v04-000 ANLSFDL_MODE = Drive the Generation of an FDL 1028-1984 99:98:30 ANALY SRCIRMSFDL 83271 ’ 
E : ¢ R6e0 ! Bsbttl *ANLSFDL_MODE = Drive the Generation of an FDL" 
i. 6 642 1 ! Functional Description: 
is 1 0645 1! his routine is responsible for driving the generation of an 
13 138 0644 1! FOL spec for a file. We open the file and call various routines 
a \z Ree? : } to generate parts of the FDL. 

: 141 Os? 1 Formal Parameters: 

; ! non 

3 128 0649 1! 

3 (144 0650 1 ! Implicit Inputs: 

: 132 bee! : global data 

: 147 0688 1 i Implicit Outputs: 

: re ote: : } global data 

; 139 3626 : Returned Value: 

3 ! none 

; 13 0658 1! 

3 12? +4 : Side Effects: 

: 155 0661 1 i-- 

; «4156 0662 1 

3 187 0663 1 

3 138 Rees global routine anl$fdl_mode: novalue = begin 

> 160 0666 2 local 

3 10) oe 4 bend status: long; 

3 oca 

: 1o7 Bo83 : local_described_buffer(resultant_file_spec,nam$c_maxrss); 

> 165 0671 ; 

3 106 +4 ! Establish the condition handler for drastic structure errors. 

; 198 pore LibSestablish(anl$unwind_handler); 

; 4 Bors 2 ! Begin by opening the file to be analyzed. If the user blew it, just quit. 

: \7¢ bees if not enlSopen_noxt ras. filetresultent_ tile spec) then 

3 return; 

: 17% 0680 : ae 

3 75 0681 ! Now we can prepare the output file to receive the FDL specification. 

: 176 no8 ! We don't want any page headings in the file. 

; 178 pone anl$prepare_report_file(0,resultant_file_spec); 
3 13 Bees ! Begin the spec with an IDENT that identifies who produced it. 

; HS Rone anl$format_line(0,0,anirms$_fdlident,0); 

; 44 3990 ! Now put out the system primary with the source. 

; (186 9 anl$format_skip(0); 

; «4187 69 anl$format_line( O.anirms$_fdlsystem); 

3 H+ bees anl$format_line(0,1,anirms$_fdisource); 

: 190 0696 ! Now call routines to put out the file and record primaries. 


Mm 6 
RMSF DL RMSFDL = Generate FDL for a File 16-Sep-1984 00:02:41 AX-11 Bliss-32 V4.0-742 P 5 
‘Voe~060 ANLSFDL_MODE = Drive the Generation of an FDL 1078 08- 1 3B 90:98:35 LANALYZ SRE RMSFDL.B32;1 ae (3) 
133 $698 L$f t_skip(0) 
anl$format_s $ 
198 069 antstactitetss 
194 700 
195 0701 anl$format_skip(0); 
196 Bene anl$fdl_record(); 
197 070 
198 0704 ! Now if this is an indexed file, call routines to put out the area 
199 0705 ! primaries, key primaries, analysis_of_area primaries, and 
$00 ti) ! analysis_of_key primaries. 
208 B78 if .ani$gl_fatCfat$v_fileorg] eqlu fat$c_indexed then ( 
04 0710 anl$fdl_areas(); 
$08 $912 3 LSfdl_k () 
an eys(); 
207 Ors 3 silted 
08 0714 ; anl$analyze_areas(); 
209 0715 
210 0716 3 anl$analyze_keys(); 
$i} 0717 2); 
12 0718 2 
213 0719 2 return; 
214 0720 2 
215 0721 1 end; 
-TITLE RMSFDL RMSFDL - Generate FDL for a File 
~IDENT \V04-000\ 
-PSECT S$PLITS$,NOWRT,NOEXE,2 
6F 6€ O02 O0000 P.AAA: .ASCII wes 3 
73 65 79 O3 00003 P.AAB: .ASCII <3>\yes\ 3 
-PSECT SOWNS,NOEXE,2 
00000000' 00000000* 00000 YES_NO: .ADDRESS P.AAA, P.AAB 3 


~-EXTRN ANLRMSS$_OK, ANLRMS$_ALLOC 
~-EXTRN ANLRMSS$_ANYTHING 


-EXTRN ANLRMS$"BACKUP, ANLRMS$_BKT 
KTARE 


MS$~BKTVBN 
TRN ANLRMS$~BUCKETSIZE 
TRN ANLRMS$S"CELL, ANLRMS$_CELLDATA 
TRN ANLRMSS~CELLFLAGS 
TRN ANLRMSS$~CHECKHDG 


an 


RMSFD 
—V04-000 


MSFDL = Generate FDL for a File 
ANC SF DL MODE = Drive the Generation of an FDL 


741 
:00 ANALYZ.SRCIRMSFODL. B30; 


AX-11 Bliss-32 V4.0-7 Page 


ANLRMS$_ CONTIG ANLRMS$_CREATION 
ANLRMSS-CT 17 


LEH WD 
aH ANLRMS$_F ILEORG 
AG, ANLRMS$_GLOBALBUF S 
XDATA 


ANLRMS$_HEXHEADING1 

ANLRMS$~ ole MEAD INGE 

ANLRMS$_I 

ANLRMS$~ IDXAREAALLOC 


ANLRMS$~ I DXAREANEXT 
ANLRMS$~ I DXAREANOALLOC 
ANLRMS$_IDXAREAQT 
ANLRMS$"1DXAREARECL 
ANLRMS$“1DMA REAUS 
ANLRMS$"IDXKEY, ANLRMS$_IDXKEYAREAS 
ANLRMS$~IDXKEYBKTS 
ANLRMS$~ IDX KEYBYTES 
LRMS$~IDXKEYITYP 
ANLRMS$~IDXKEYDATAVBN 
ANLRMS$_IDXKEYF ILL 
ANLRMS$~IDXKEYFLAGS 
ANLRMS$~ IDXKEYKEYS2 
ANLRMS$"1DXKEYNAME 
ANLRMS$~IDXKEYNEXT 
ANLRMS$~ I DXKE YMINREC 
ANLRMS$_IDXKEYNULL 
ANLRMS$~IDXKEYPOSS 
ANLRMS$~IDXKEYROOTLVL 
ANLRMS$~IDXKEYROOTVBN 
ANLRMS$~IDXKEYSEGS 
ANLRMS$~IDXKEYSIZES 
ANLRMS$~IDXPRIMREC 
ANLRMS$~IDXPRIMRE CFLAGS 
ANLRMS$71DXPRIMRE 1D 
ANLRMS$~IDXPRIMRECLEN 
ANLRMS$ “1DXPRIMRECRRV 
ANLRMS = }DXPROAREAS 
ANLRMS$~ I DXPROLOG 
ANLRMS$"IDXREC, ANLRMS$_IDXRECPTR 
ANLRMS$~IDXSIDR 
ANLRMS$~IDXSIDRDUPCNT 
ANLRMS$"IDXSIDRF LAGS 
ANLRMS$~IDXSIDRRECID 
ANLRMS$~IDXSIDRPTRFLAGS 
ANLRMS$"IDXSIDRPTRREF 
ANLRMS$~ INTERCOMMAND 
ANLRMS$~ INTERHDG 
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v04-000 ANLSFDL_MODE = Drive the Generation of an FDL 1 : 


:00 ANALYZ.SRCIRMSFDL.B32; 1 (3) 


0 

1 

TRN ANLRMS$ ate tte: 

TRN ANLRMS$"MAXRECSIZE 

TRN ANLRMS$_N NOBACKUP 

TRN ANLRMS$_NOEXPIRATION 

TRN ANLRMS$_ iromeccee 

TRN ANLRMSS$_PERF 

TRN ANLRMS$_ ~PROLOGFLAGS 

TRN ANLRMS$_PROLOGVER 

TRN ANLRMS$"PROT, AWLRMSS_RECATTR 

XTRN ANLRMS$"RECFMT, ANLRNSS. RECLAIMBKT 
ELBUCKET 


UIC 
-EXTRN ANLRMS$_JNL, ANLRMS$_AIJNL 
.EXTRN ANLRMS$— -BLINL, ANLRMS$_ATJNL 
-EXTRN ANLRMSS$_ Alt i= ANLRMS$_BADCMD 
-EXTRN ANLRMS$_BADPATH 
.EXTRN ANLRMSS$— “BADVBN, ANLAMSS. DOWNHELP 


. BK 

-EXTRN ANLRMSS$S_NODATA, ANLRMS$_NODOWN 
-EXTRN ANLRMSS$_NONEXT, ANLRMS$_ oo ea 
-EXTRN ANLRMS$_ Ra 3B B sett NORR 


-EXTRN ANLRMS$_FDLNOALLOC 
-EXTRN ANLRMS$"FDLBESTTRY 
~EXTRN ANLRMS$_FDLBUCKETSIZE 
-EXTRN ANLRMS$_ of DUEL US TERSICE 
-EXTRN ANLRMS$_FDLCONTIG 

-EXTRN ANLRMS$_ ~FDLEXTENSION 


x FILENAME 
“EXTRN ANLRMS$~ “FDLORG. ANL RMS. FDLOWNER 
-EXTRN ANLRMS$~ =FDLPROFECT 

x ANLRMS$~FDLRE ORD 


-EX “FDL SPA 
-EXTRN ANLRMSS$"FDLCC NANLRMSS _FDLVFCSIZE 
EXTRN ANLRMS$"FDL eae 


DA ATAR 
XTRN ANLRMS$~ F DLDATAKEYCOMPB 


741 AX-11 Bliss-32 V4.0-742 Page 8 
:00 ANALYZ.SRCIJRMSFOL.B32;1 (3) 


ANLRMS$_ pithuerooowe 
ANLRMS$_ UPS 
ANLRMS 
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TRN ANLRMS$_FDLSEGTYPE 
XTRN ANLRMS$_ “nee 
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-EXTRN ANLRMS$_ botbatamecee 
«EXTRN ANLRMS$_FDLDATAREC 
~EXTRN ANLRMSS$_ “FOLDATASPACE 


EXTRN ANCAMSS~FDLIDKLENMEAN 


Y 
eEXTRN ANLRMee STATE DEPTH 


TRN ANLRMS$"BADBKTKEYID 
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2:02:41 AX-11 Bliss-32 v4.0 30% Pp 
88500 PANALYZ SRE SRASFDL130+1 oe 


TRN ANLRMS$_BADBKTLEVEL 


eEXTRN ANLRASS-BADREYR REFID 


SINGBKT 
-EXTRN ANLRMS$_NOTOK, ANLRMS$_SPANERROR 
-EXTRN ANLRMSS$_ TOOMANYRE CS 
-EXTRN ANLRMS$_U ree th ANLRMS$_VF CTOOSHORT 
-EXTRN ANLRMSS$_ tac HEFULL 
-EXTRN ANLRMSS$_CACHERELFAIL 
R RMS$"FACI 


T 
-EXTRN ANLSA SARER DESCRIPTO 
XTRN ANLSBUCKET, ANUSFDL -ANALYSIS _OF AREA 
XTRN ANLSEDL _ANALYSIS_OF 
XTRN NLSEDL FILE, ANCSEORMAT WLINE 
XTRN ANLSFO SKIP 
XTRN ANLSID x CHECK KEY_STUFF 
XTRN ANLSK Bye DESCRIPTO 
KTRN ANCSOPER. Hat 
x 
x 
x 
» 


es 


RMS_FILE 
TRN A SPRE PARE -A007E6 STRING 
TRN AN LSPREPA REER E EPORT-FILE 


R~ 
KET HEADER 


uC 
RN CLISGET_VALUE,~ TeSESTABL I ISH 


RMSFD RMSFDL = Generate FDL for a File 16- 


S $ep-1984 00:02:41 AX-11_ Bliss-32 V4.0-742 
v04-000 ANLSFDL_MODE = Drive the Generation of an FDL =$ 1984 $998 30 t j 1 


? 
ANALYZ.SRCIRMSFDL.B32; 
.EXTRN ANLSGL_FAT, ANLS$GW_PROLOG 
.PSECT $CODES,NOWRT,2 


p- 
p- 


3; Routine Size: 148 bytes, Routine Base: S$CODE$S + 0000 


000¢ 00000 -ENTRY ANLSFDL MODE . Save_R2,R3 
53 00006 CF 9E 9000¢ MOVAB ANLSFORMAT_SKIP, R3 
52 00006 CF 9E 0000 MOVAB ANLSFORMAT-LINE, R2 
5E FEFC CE 9E 9000¢ MOVAB =260(SP) 
| ze FF 68F 9A 00011 MOVZBL #255, RESULTANT FILE SPEC 
| 06 =A 08 AE 9E 00015 MOVAB RESULTANT_FILE_SPEC+8, - 
| RESULTANT-FILE-SPEC+4 
0000G CF 9F BO0TA PUSHAB ANLSUNWIND_HANBLER 
000000006 00 01 FB OO1E CALLS #1, LIBSESTABLISH 
SE DD 0002 PUSHL SP 
00006 CF 01 FB 90027 CALLS #1, ANLSOPEN_NEXT_RMS_FILE 
64 50 £9 0002C LBC =—saRO,:*18 
5E DD 000¢F PUSHL 
| 7E D4 00031 CLRL. = = (SP) 
| 00006 CF 02 FB 00033 CALLS #2, ANLSPREPARE_REPORT_FILE 
7E D4 00038 CLRL = = (SP 
000000006 8F DD G003A PUSHL #ANLRMS$_FDLIDENT 
7E 7C 00040 CLRQ. = 
| 62 04 FB 00042 CALLS #4, ANLSFORMAT_LINE 
7E 04 00045 CLAL. = (SP) 
63 01 FB 00047 CALLS #1, ANLSFORMAT_ SKIP 
00000000G 8F DD 0004A PUSHL M#ANLRMSS_FDLSYSTEM 
7E 7C 00050 CLRQ. = =(SP) 
62 03 FB 00052 CALLS #3, ANLSFORMAT_LIN’ 
000000006 8F DD 00055 PUSHL #ANLRMS$_FDLSOOURCE 
01 0D 00058 PUSHL #1 
7E 04 0005D CLRL. = =( SP) 
62 03 FB QOOSF CALLS #3, ANLSFORMAT_LINE 
7E D4 00062 CLRL = = (SP) 
63 01 FB 00064 CALLS #1, ANLSFORMAT SKIP 
00006 CF 00 FB 00067 CALLS #0, ANLSFDL_FICE 
7E D4 0006C CLRL = = (SP) 
63 01 FB OO06E CALLS #1, ANLSFORMAT SKIP 
0000v CF 00 FB 00071 CALLS #0, ANLSFDL_RETORD 
02 00006 oF 04 04 €D 00076 CMP2V #4, #4, @ANCSGL_FAT, #2 
14 12 0007D BNEQ 1$ 
| 0000v CF 00 FB 0007 CALLS #0, ANLSFDL_AREAS 
0000v CF 00 FB 00084 CALLS #0, ANLSFDL-KEYS 
OO000V CF 00 FB 00089 CALLS #0. ANLSANACYZE_AREAS 
| 0000v CF 00 FB 00085 CALLS #0, ANLSANALYZE_KEYS 
| 04 00093 1$: RET 
| 
| 
| 
| 
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Rsbttl *ANLSFDL_RECORD = Generate RECORD primary for FDL‘ 
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ANALYZ.SRCJRMSFDL.832;1 (4 
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i “Funct tonal Description: 
This routine is responsible for generating the RECORD primary in an 
FDL spec. This primary describes things about the record format 
of the file. 
Formal Parameters: 
Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
non 


Side Effects: 


global routine anl$fdl_record: novalue = begin 


! We just format a line for each item in the record primary. 


,anirms$_fdlrecord); 


anl$format_line(0,0 
J,antras$_ fdlspan,. yes_ no(not .anl$gl_fatCfat$v_nospan] and 1])); 
f 


0 
anl$format_line(0 
0,1,anlrms$_fdlcc 
(if .anl$gl_ fatt fatsv _impliedcc] then uplit byte (%ascic ‘carriage return’) 
else if .anl$gl-fat(fat$v_fortrancc] then uplit byte egesc ic *fortran' J 
ose if .anl$gl7fat(fat$v_printcc] then uplit byte (Zascic ‘print’ ) 
uplit byte (Z%ascic ‘none'))); 


anl$format_line( Y 
1 


if one fattfarsy vsntyped eqlu fat$c rfc then 
prormat. (0,1,anlirms$_fdT vfcsize,.ant$gt_ fatCfat$b_vfcsize]); 
entStornat. Line(0,T Sealeate fdl format, 
(selectoneu~ -anl$gl_ fatlfat$v type] of set 


fat$c_undefined): uplit byte (Zascic "undef ined’ ); 
fat$c_fixed): uplit byte (Zascic ‘fixed"); 
fat$c_ “variable: uplit byte (Zascic ‘variable’ ); 
fat$c_vfcl: uplit byte (Zascic ‘wfc ); 
fat$c_ “stream): uplit byte (Zascic ‘stream’ ); 
fat$c_streaml f uplit byte (Zascic ‘stream_ Lf! 
Cfatéc. _streamcr uplit byte (Zascic ‘stream_cr oF 


es)); 
anl$format_ Line(O. tl shtrass. fdisize,.anl$gl_fatCfat$w_maxrec]); 
return; 


end; 


-PSECT SPLITS,NOWR’ ,NOEXE ,2 
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| RMSFD RMSFDL = Generate FDL for a & 18-Sep-19 


Fil 4 00:02:41 AX-11 Bliss-32 V4.0-74 Pp 
v04-000 ANLSFDL_RECORD = Generate RECORD primary for FD 1278 08- 1 3b 99 98350 LANALYZ  SRETRHGE DL o30¢4 ” a5 
| 
| 
(72 75 74 65 72 Sf 65 67 61 69 72 72 61 63 OF anor P.AAC: .ASCII <15>\carriage_return\ : 
6— 61 72 74 72 6F $6 5 0019 P.AAD: .ASCII <7>\fortran\ : 
| 74 of 69 72 5 BRO E P.AAE: .ASCII <5>\print\ : 
65 6E 6F $f 4 00025 P.AAF: .ASCII <4>\none\ : 
64 65 6E 69 66 65 64 6 9 QO002A P.AAG: .ASCII <9>\undefined\ : 
64 65 69 66 05 00034 P.AAH: ASCII <5>\fixed\ : 
65 6C 62 61 69 72 61 76 08 900 A P.AAL: ASCII <> \var able\ : 
635 66 76 0 0043 P.AAJ: .ASCII <3>\vfc\ : 
6D 61 65 72 74 73 06 00047 P.AAK: .ASCII <6>\stream\ : 
66 6¢ SF 6D 61 65 72 74 73 «09 00045 P.AAL: .ASCII <9>\stream_(f\ : 
72 635 SF 6D 61 65 72 74 73 O09 Q0058 P.AAM: .ASCII <9>\stream_cr\ : 
-PSECT $CODE$,NOWRT,2 
001C 00000 -ENTRY ANLSFDL_RECORD, Save R2,R3,R4 : 0746 
54 0000G CF 9€ 00002 MOVAB ANLSGL_PAT, : 
53 0000G CF 9E 00007 MOVAB ANLSFORMAT_LINE, R3 : 
52 0000° CF 9E OO000C MOVAB P, e ; 
00000000G 8F DD 00011 PUSHL #ANLAMS$_FDLRECORD ; 0751 
ze 7C 00017 CLRQ #(SP) : 
63 03 FB 00019 CALLS #3, ANLSFORMAT_LINE ; 
| 50 64 D0 0001C MOVL ANLSGL_FAT, : 0752 
50 01 AO 01 03 EF OOOTF EXTZV #3, #1, 1(RO), RO F 
50 01 50 CB 00025 BICL3 # : 
0000'CF40 DD 00029 PUSHL YES_NOCRO] : 
00000000G 8F ODD poet PUSHL #ANCRMS$_FDLSPAN : 
01 DD 00034 PUSHL #1 : 
7E 04 00036 LRL -(SP) : 
63 04 FB 00038 CALLS #4, ANLSFORMAT_LINE 3 
50 64 D0 90038 MOVL ANLS$GL_FAT, RO : 0754 
07 01 AO 01 €1 OO03E BBC #i, 1(RO), 18 3 
51 62 9E 00043 MOVAB P.AAC, R1 : 
51 DD 00046 PUSHL 1 : 
1E 11 00048 BRB 5$ : 
09 01 AO ? QO04A 1$ BLBC 1(RO), 2$ ; 0755 
51 10 A2 9E 0004 MOVAB P.AAD, R1 : 
50 51 00 0005 MOVL Ri, RO : 
OF 11 0005 BRB 4$ 3 
06 01 Ad 02 3 00057 2% BBC #2, 1(RO), 3% 3; 0756 
50 18 A2 9E B003¢ MOVAB P.AAE, RO : 
04 11 BRB 4$ : 
50 1E A2 9E BR 8es 3$: MOVAB’ P.AAF, RO 3; 0757 
50 DD 00066 4$: PUSHL RO : 0755 
00000000G 8F ODD Range 5$: PUSHL M#ANLRMSS$_FDLCC : 07535 
01 DD O06e PUSHL #1 : 
| 7E D4 0007 CLRL -(SP) : 
| 63 04 FB 00072 CALLS #4, ANLSFORMAT_LINE : 
| 50 64 00 0007 MOVL  ANLSGL_FAT, RO : 0758 
| 03 60 04 00 ED 60078 CMP7v #0, #47 (ROD, #3 : 
11. 12 $070 BNEQ 6$ : 
| 7 OF AO 9A 0007F MOVZBL 15(RO), =(SP) : 0759 
00000000G 8F DD 00083 PUSHL #ANLRMS$_FDLVFCSIZE 3 
01 DD 00089 PUSHL #1 3 
| 
| 
j 
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263 bytes, Routine Base: $CODE$S + 0094 


; Routine Size: 
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RMSFD RMSFDL = Generate FDL for a File 1beso -1984 02:41 AX-11 Bliss-32 V4.0-74 
v04-0 ANLSFDL_AREAS = Generate AREA Primaries for FOL 12288-1982 90:98:50 LANALYZ°SRe RISFDL o5ec% 

4: pr? Rsbttl "ANLSFDL_AREAS = Generate AREA Primaries for FDL’ 

4 O77 i Functional Description: 

74 778 This routine is responsible for generating the area hag ibis in 
3re 1464 } an FDL spec. This is needed for defining indexed files. 

77 0781 i Formal Parameters: 
278 078 ! 
$79 Ores | | ey 
280 0784 ' Implicit Inputs: 
283 Ore global data 
0787 i Implicit Outputs: 
Spe 144 global data 
386 0790 ! Returned Value: 
M n 

588 0792 1 
$80 $4, Side Effects: 
291 0795 1 i-- 
29 0796 
29 0797 
Soe th global routine anl$fdl_areas: novalue = begin 
296 00 local 
297 801 p: bsd, 
298 02 sp: ref block(,byte], 

99 3 area count: long, 


So 


id: long; 


! We begin by setting up a BSD for the prolog and reading it in. 


! Now we will scan all of the area descriptors. Read in the first one. 


sp = .pl(bsd$l_bufptr]; 
area.count = “splplgd6_ amex); 


shbsctt rin) fy segptat8.ovtn) 
anl$bucket(p,0); 
! Loop through the descriptors one by one. 
incru id from 0 to .area_count-1 do ( 
! Generate the FDL for this descriptor. 
sp = .p(bsd$l_bufptr) + .plbsd$l_offset); 


anl$format_skip(0); 
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L = Generate FDL for a File $ 
DL_AREAS = Generate AREA Primaries for FDL 14-Se 


tale 


AX-11 Bliss-32 V4.0-76 
=1986 1 i ¢ ¢ 


41 ? 
00 ANALYZ.SRCIJRMSFDL.832; 
anl$format_lLine(0,0,anirms$_fdlarea,.id); 


: If an extent has been allocated but the total allocation is zero, 
' then this file was created before the total allocation field 


M 
N 
ls 8 08 
13 39 08 
Fans 08 
13 : ¢ 08 ! existed. Just put out a zero allocation with a comment. 
3 ? be ! Otherwise, we can put out the total area allocation. 
i; 5 0839 if .splarea$l_cvbn] nequ 0 and .splarea$l_total_alloc] eqlu 0 then 
13 38 tk ‘ anl$format_lLine(0,1,anirms$_fdlnoalloc) 
3 else 
3 tte bets anl$format_line(0,1,anlrms$_fdlalloc,.splarea$l_total_alloc]); 
; 30 0844 ani Stores. {ne (2) -an} rast fdibuchets tae. .seCeresse arbktsz]); 
13 $3 Baee ; anl$format_line(0,1,anlrms$_fdlextension,.spLarea$w_deq]); 
3 308 0847 ! Now we can advance on to the next descriptor. In the process, 
> 344 0848 H ' we will check it for validity. 
3s 345 0849 
; 346 0850 3 anl$area_descriptor(p,.id, false); 
is 347 0851 2); 
3 «348 082g § 
; 349 085 anl$bucket(p,-1); 
; 350 0854 2 return; 
3 351 0855 2 
; S32 0856 1 end; 
OOFC 00000 -ENTRY ANLSFDL_AREAS, Save R2,R3,R4,R5,R6,R7 
57 0000G CF 9€E 00002 MOVAB ANLSBUCRET, 
56 0000G CF Fs 00007 MOVAB ANLSFORMAT_LINE, RS 
5E 18 C2 0000C SUBL2 #24, 
18 00 6E 00 2C 0000F MOVCS #0, (SP), #0, #24, P 
6E 00014 
02. AE 01 B60 00015 MOVW #1, P+2 
04 AE 01 DO 00019 MOVL #1, P+4 
7E D4 0001D CLRL (SP) 
04 AE 99F QOOTF PUSHAB P 
67 02 FB Boose CALLS #2, ANLS$BUCKET 
53 0c AE D0 0002 MOVL. P+f 
52 67 AS 9A 00029 MOVZBL 103($P), AREA_COUNT 
04 AE 66 AS 9A 000¢0 MOVZBL 102(SP). P+4 
08 AE 04 000 ¢ CLRL P+ 
7E D4 0003 CLRL -(SP) 
04 AE 9F 00037 PUSHAB P 
67 02 FB 90034 CALLS #2, ANLSBUCKET 
52 Dd? 00030 DECL R2 
| 54 D4 0005F CLRL ID 
73° «11 «00041 BRB 4$ 
53 Oc (AE 08 AE C1 00043 1$: ADDL3 P+8, P+12, SP 
7E D4 00049 CLRL - 
0000G CF 9} FB Spee CALLS #1, ANLSFORMAT_SKIP 
4 Dd 0005 PUSHL 
000000006 ot bb ett PUSHL #ANLRMS$_FDLAREA 
E C 0005 CLRQ (SP) 
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RMSFD RMSFDL = Generate FDL for a File 1o~se0-138 
v04-000 ANLSFDL_AREAS = Generate AREA Primaries for FDL 14-Sep-19 

66 04 FB QOOSA 
OC A3 D5 0005D 
14 13 00060 
32 AS OD BR eE 
F 12 0006 
00000000G 8F DD 00067 
9 DD 0006D 
D4 Oper 
66 05 FB 00071 
10 11 74 

32. AS DD 00076 2%: 
000000006 8F ODD 8 079 
1 DD 0007F 
E D4 00081 
66 04 FB 00083 

7E 03 A3 9A 00086 3$: 
00000000G 8F DD OO08A 
01 DD 4488 
7E 04 00092 
6 04 FB 00094 
7E 24 AZ 3C 00097 
00000000G 8F ODD 0009B 
01 DD OO0A1 
7E D4 QO0A3 
66 04 FB 000A5 
7E D4 OOOA 
54 DD OOOAA 
08 ‘ 9F OOOAC 
0000G CF 03 FB OOOAF 
54 D6 00084 

52 54 D1 00086 4$: 
88 1B 00089 
7E 01 CE 00088 
04 AE 9F QOOBE 
67 02 FB 000C1 
04 000C4 


ee 


; Routine Size: 197 bytes, Routine Base: S$CODE$ + 0198 


AX-11 Bi ist =32 V4.0-742 
ANALYZ. $Rei RMSFDL.B32;1 


ANL $F ORMAT_LINE 
SP) 


is PANLSFORMAT_LINE 
0(SP) 
HANLRMSS_FDLALLOC 
=(SP) 

#4, ANLSFORMAT_LINE 


3(§p) 
HANL RASS F DLBUCKETSIZE 


-(SP) 
a4, ANLSFORMAT LINE 
36(SP), P 

HANLRMES_ FDLEXTENSION 


(SP) 
#4, ANLS$FORMAT_LINE 
-(§P) 


P 
a3, ANLSAREA_DESCRIPTOR 
ID, R2 

1$ 

#1, -(SP) 

#2, ANLSBUCKET 


Pee Se Se Se Ge Se Se Be Be Be Be Be Be Se Se Be Be Be Se Be Se Be Se Fe Se Be Se Se Se Be Se Be Be Be Se 


0842 


0844 


0845 


0850 


0825 


0853 


0856 
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—OOONOw 


ODOnODaynnNAS 
WR OC OCONOUE wr 
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SSS 


ani$bucket(p,0); 
! Now we can loop through the key descriptors. 


incru id from 0 do ( 
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RMSFDL = Generate FDL for a File 1b-Se -1984 00:02:41 AX-11 Bliss-32 V4.0-74 
ANLSFDL_KEYS = Generate KEY by teertes for FDL 12790871382 99:98:69 YANALYZ Se RASFOL O30r4 ee (as 
tte ! Esbeel "ANLSFDL_KEYS = Generate KEY Primaries for FDL' | 
0859 1! Functional Description: ; | 
0860 1! his routine is responsible for generating the key primaries in an 
+e : FDL spec. These are needed for indexed files. 
ones 1 Formal Parameters: | 
OBes | | seas | 
0866 1 ! Implicit Inputs: 
pee? ! global data 
0869 1 | Implicit Outputs: | 
0870 1 | global data | 
pers : Returned Value: 
S| ititine 
+ 14 ' Side Effects: 
0877 1 i-- 
0878 1 
0879 1 
ttt § global routine anl$fdl_keys: novalue = begin 
088 § own 
088 types: vectorl6, long) initial ( 
0884 2 uplit byte (Zascic +yteieg. 
0885 2 uplit byte (Zascic ‘int2"), 
0886 2 uplit byte (Zascic ‘bin2'), 
0887 uplit byte (Zascic ‘int4'), 
0888 uplit byte (Zascic ‘bin4") 
0889 uplit byte (Zascic ‘decimal"), 
0890 2 uplit byte (Zascic ‘int8'), 
bees § yet te byte (%ascic ‘bin8') 
eer ong es 

: OS e 
0895 ta: lene, 
0896 sp: ref block(,bytel, 
+ 344 i: long; 
0899 ; 
0900 : We will be looking at all of the key descriptors. Set up a BSD for the 
Bos ! first one. 
$908 init_bsd(p); 
0904 pl(bsd$w_size) = 1; 
0905 plbsd$l_vbn) =_1; 
090 plodsd$l_ offset) = 0; 


Re Ms Bs Oe Oe Os Be Oe Fe Be BeBe Ka BeBe Se Ge Fe Ge Ge Se Se Se Ge Fe Se SH Se Se ws Se Se Se Be Se Se Oe Oe Ss Os Oe Oe Os Os Os Os Os Os Oe Os se EEE BOs Os ee 


! Now we can format the FDL for the key. 


| at eee ee el el et et el ek ed et ek et et ee ed le et 
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ANLSFDL_KEYS = Generate KEY Primaries for FDL 14-Sep-1984 11:55:00 ANALYZ.SRCIRMSFDL .B32;1 (6) 
0914 

Belz sp = .pCbsd$l_bufptr) + .plbsd$l_offset); 

0917 ant$format_skip(0); 

bate anl$format—Line(0,0,anirms$_fdlkey,.id); 

Bale anl$format_line(0,1,anirms$_fdlchanges,.yes_nol.splkey$v_chgkeys] and 1]); 
0381 ' The data Rey and record compression flags are meaningful only for 

09 § : a prologue 5 file. Furthermore, the data record compression flag 

44 ? ! only makes sense on the primary key. 

0925 4 if .anl$qw protes eqlu plg$c_ver_3 then ( 

0926 4 an($format_line(0,1,anlriis$_fdldatakeycompb,.yes_nol.splkey$v_key_compr] and 1]); 
0927 4 if .id eqlu 0 then 

0928 4 anl$format_line(0,1,anlrms$_fdldatareccompb 

6494 4 .yes_nol.splkey$v_rec_compr) and 1)); 

0931 " 

O33¢ anl$format_line(0,1,anlrms$_fdlidataarea,.splkey$b_danum]) ; 

093 anl$format_line(0 Veantems$itdldatatilt,(.splkeySi dat till] * 100) / 

0934 3 ’ (.spCkey$b_datbktszJ*512)); 

0935 3 ani $tormat.t ine(8.] -antrass_ faldups. yes not splReyov dugheys, and 1]); 

44 : 3 anl$format_line(0,1,anirms$_fdlindexarea,.splkey$b_ianum)); 

3938 ; ! The index compression flag is only used for prologue 3 files. 

940 3 if .anl$qw protog eqlu plg$c_ver_3 then 

need ; anT$format_line(0,1,anlris$_fdl indexcompb,.yes_nol.sp[key$v_idx_compr] and 1]); 
0945 3 enlStornct,( iantd, 1 anlensd tot indosttts .(.aptherty idxfill]_* 100) / 
0944 3 ; (.spl es _idxbktsz)*512)); 
Ree ; anl$format_line(0,1,anlirms$_fdlllindexarea,.splkey$b_lanum]); 
0947 3 ! For the key name, we have to produce a quoted spring containing 
4 ; ! the name. This goes in the output Line along with the NAME keyword. 
0950 4 begin 
0951 4 local ; 
944 4% name_dsc: descriptor. : 

Beez ? local_described_buffer(string_buf ,key$s_keynam*2+2) ; 

0955 4 build_descriptor(name_dsc key$s_heynan.spfkeySt_keynan)); 

0956 4 anl$prepare quoted st? ing(name dic. string. buf : 

0957 4 anl$format_Tine(0,T,anirms$_fdlkeyname,st?ing_buf); 

0989 ; ~— 

0960 anl$format Line(0.1 galas fdinul Lkey..yos_nol, spCheySv nulheys) and 1)); 
0961 if .splkey$v_nulkeys] then 

2008 anl$Tormat_line(0,1,anirms$_fdlnullvalue,.splkey$b_nullchar]); 
Bove ! The prolog version only appears in the primary key. 

0966 if .id eqlu 0 then | 

0 anl$format_line(0,1,anirms$_fdlprolog,.anl$qw_prolog); 


$338 


' To put out the segment sizes and positions, we have to loop 
! through the segment arrays. 
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erate FDL for a File 
- Generate KEY Primaries for FDL 
begin 
begs 


size_vector = spl key$b.. sizeQ): 
pos_vector = spLkey$w _position0]: 


incru i res 0 to “Forney se. se pose ig Pt 
anl$format_Line(0,1,anlrms$ 

end; 

' Now we can put out the key data type. 


N 7 
16-Sep-1984 00:02:41 
ae oats 7A hk PD id 


tor(,b 
vector 


*Talesstoneth,o1,,049e 
anl$format_line(0,1,anlrms$_fdlsegpos,.i,.pos_vect 


AX=11 Bliss-32 V4.0-742 


yted 40: 


vegtort. et3)3 


anl$format_line(0,1,anirms$_fdlsegtype,.types(.splkey$b_datatype]]); 


! Now we can 
! This will also check the descriptor 


exitif (not anl$key_descriptor(p,.id,0,false)); 


anl$bucket(p,-1); 
return; 


67 6€ 69 72 74 73 06 00062 P.AA 
32. 74 6€ 69 04 00069 P.AAO 
32. 6E 69 62 04 sie P.AAP: 
34 74 6€ 69 04 00075 P.AAQ: 
34 6€ 69 62 04 00078 P.AAR: 
6C 61 6D 69 63 65 64 Q7 0007D P.AAS: 
38 74 6€ 69 04 00085 P.AAT: 
38 6€ 69 62 04 Q008A P.AAU: 
0000000' 00000000° 00008 TYPES 
00000000* 00000000° 00026 
O1FC 000 
28 80006 CF 9E 0000 
5 000" CF 9€ 0000 
56 0000G CF 9E O000C 
5E WS Af 9€ 00011 
6E 00 2C 00015 
54 CA OO1A 
56 AE 01 B80 O00IC 


0 on to the next descriptor, if there is one. 
s validity. 


SPLITS,NOWRT ,NOEXE ,2 


<6>\string\ 
<4>\int2\ 
<4>\bin2\ 
<4>\int4\ 
<4>\bin4\ 
<7>\decimal\ 
<4>\int8\ 
<4>\bin8\ 


SOWNS ,NOEXE ,2 


oADORE SEP AMM. P.AAO, P.AAP, P.AAQ, P.AAR, = 


-PSECT 
-ENTRY 
MOVAB 


«AAS, P.AAT, P.AAU 


SCODES .NOWRT ,2 


ANLSFDL_KEYS, Save R2,R3,R4,R5,R6,R7,R8 
ANL$G wW_PROLOG, RB 


YE 

Ant SF OAT LINE, R6 
#0, (SP); #0, #24, P 
#1, Pe2 


0880 


0905 
0904 


am 
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BASED RMSFDL = Generate FDL for a File 
Seat 0 ANLSFDL_KEYS = Generate KEY Primaries for FDL 
58 AE 1 
¢ 
58 OA 
0000G CF 9 
52 60 AE 5¢ AE 
| 0000G CF } 
000000006 ef 
| 66 04 
53 10 A2 
50 63 01 01 
6740 
000000006 of 
7E 
66 04 
03 68 
2E 
50 63 01 06 
6740 
00000000G 8F 
01 
7E 
66 04 
55 
15 
50 63 01 07 
6740 
00000000G_ 8F 
01 
7E 
66 04 
7E 08 A2 
00000000G 8F 
01 
7E 
66 04 
51 1A A2 
51 eenaay 8F 
50 B A 
50 50 0 
7E 51 50 
00000000G_ 8F 
01 
| 7E 
66 04 
| 50 63 01 00 
6740 
00000000G_ 8F 
01 
7E 
04 
| E 
| 


06 A2 
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P+4 
el gp) 


P 

#2, ANLSBUCKET 

P+8, P+12, SP 

i. ANLS$FORMAT_SKIP 
WANLRMSS_FDLKEY 

#4, ANLSFORMAT_LINE 
16(SP), 

#1, #1, (R3), RO 


YES_NOER 
WANCRMSS_FDL CHANGES 


-(SP) 
#4, ANLSFORMAT_LINE 
ANLSGW_ PROLOG, #3 

#6, #1, (R3), RO 

YES NOCROI 

#ANCRNSS_F DLDATAKEYCOMPB 
-(SP) 

a4, ANLSFORMAT_LINE 


2$ 
of a 


R3), RO 
RO) 
yERCHASs 
#1 


FDLDATARECCOMPB 


= 
“3 


=(SP) 
w4 ANLSFORMAT_LINE 
HANLRMSS _FDLDATAAREA 


=(SP) 
#4, ANLSFORMAT_LINE 
26(SP), RI 


#100, R1 

11(SP), RO 

#9, RO, RO 

RO, R1, =(SP) 
SOMLARSS FOLDATAR ILL 


- (SP) 
#4, ANLSFORMAT_LINE 


YES NOCRO] ~ 
jae, FDLDUPS 
aisP 

Hef ANL FORMAT ULINE 
PANLRASS, PDLINDEXAREA 
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¢ 8 
16-Sep-1984 00:02:41 AX-11 Bliss=-32 V4.0-742 Page 21 
-v04-000 ANLSFDL_KEYS = Generate KEY Primaries for FOL 1a-Sep-19 4 09:96:50 ANALYZ.SRCIRMSFDL.B32;1 . (3 
| 1 DD OOOEA PUSHL : 
E 04 OOOEC CLRL. = (SP) : 
66 04 FB OOOEE CALLS #4, ANLS$FORMAT_LINE : 
0 68 B1 OOOFI CMPW  ANLS$GW_PROLOG, #3 + 0940 
15 12 000F4 BNEQ 3$ : 
50 63 01 03 EF O00F6 EXTZV #3, #1, (R3), RO > 0941 
| 6740 DD O00FB PUSHL  YES_N : 
QO00000CG 8F DD OOOFE PUSHL #ANCRMS$_FDLINDEXCOMPB 3 
01 DD 00104 PUSHL #1 : 
7E 04 00106 CLRL. = (SP) : 
66 04 FB 00108 CALLS #4, ANLSFORMAT_LINE : 
51 18 A2 3¢ 90108 3$ MOVZ2WL 24(SP), R1 + 0943 
51 00000064 8F C4 0010F MULL2 #100, R1 : 
50 OA A2 9A 00116 MOVZBL 10(SP), RO + 0944 
50 50 09 78 OO11A ASHL #9, RO, RO : 
7E 51 50 C7 OO11E DIVL3 RO, R1, =(SP) : 
000000006 BF dD 00122 PUSHL #ANLRMS$_FDLINDEXFILL > 0943 
01 DD 00128 PUSHL #1 : 
7E D& 0012A CLRL. = (SP) : 
66 04 FB 0012C CALLS #4, ANLSFORMAT_LINE é 
7E 07 A2 9A O01 ef MOVZBL 7(SP), =(SP + 0945 
000000006 8F DD 00133 PUSHL #ANLRMS$_FDLL1INDEXAREA : 
01 DD 00139 PUSHL #1 : 
7E D4 00138 CLRL. = (SP) : 
66 04 FB 00130 CALLS #4, ANLSFORMAT_LINE ; 
6E 42 8F 9A 00140 MOVZBL #66, STRING BU : 0953 
04 AE 08 AE 3 00144 MOVAB STRING BUF+8, STRING_BUF +4 ; 
4C AE 20 DO 00149 MOVL #32, NAME DSC : 0955 
50 AE 34 A2 9E 00140 MOVAB 52(R2), NAME_DSC+4 ; 
5E DD 00152 PUSHL SP : 0956 
50 AE 9F 00154 PUSHAB NAME_DSC : 
00006 CF 02 FB 00157 CALLS #2, ANLSPREPARE_QUOTED_STRING ; 
3 DD 0015C¢ PUSHL SP : 0957 
000000006 8F DD 0015E PUSHL #ANLRMS$_FDLKEYNAME F 
01 DD 00164 PUSHL #1 : 
7E D4 00166 CLRL. = (SP) : 
bb 04 FB 00168 CALLS #4, ANLSFORMAT_LINE : 
50 63 01 02 EF 00168 EXTZV. #2. #1. (R3), RO : 0960 
6740 DD 00170 PUSHL  YES_NOCROJ : 
000000006 8F DD 00173 PUSHL #ANCRMS$_FDLNULLKEY ; 
01 DD 00179 PUSHL #1 F 
7E D4 00178 CLRL. = SP) ; 
AG 04 FB 0017D CALLS #4, ANL $F ORMAT LINE : 
11 63 3 EI 00180 BBC oF (R3), 4$ > 0961 
7E 13 A2 9A 00184 MOVZBL 19(SP), -(SP) : 0962 
000000006 8F DD 00188 PUSHL #ANLRMS$_FDLNULLVALUE : 
1 DD 0018 PUSHL #1 : 
E 04 00190 CLRL. = (SP) : 
66 04 FB 3136 CALLS a4, ANLSFORMAT_LINE b 
33 D3 0195 4$: TSTL p : 0966 
7E 68 3C 00199 MOVZWL ANL$GW_PROLOG, -(SP) > 0967 
000000006 8F ODD Bots PUSHL #ANLRMS$_FDLPROLOG : 
01 DD OO1A PUSHL #1 ; 
E D4 OO1A4 CLRL. = (SP) : 
6A 04 FB 0016 CALLS #4, ANLSFORMAT_LINE : 
54 12 A2 9A OO1A9 5S: MOVZBL 18(SP), R4 : 0977 


<z 
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RMSFOL RMSFDL = Generate FDL for a File 16-Sep-1984 00:02:41 AX-11 Bliss-32 V4.0-742 Page 22 
v04-000 ANLSFDL_KEYS = Generate KEY Primaries for FDL aaa 1 19 598260 ANALYZ.SRCIRMSFDL.B32;1 ’ (85 
54 D7 OO1AD DECL R4 : 
53 D4 OOTAF CLRL : 
2A 11 00181 RRR $ : 
7E 2c nee 9A 00183 6$: MOVZBL 44(SP)CIJ, =(SP) ; 0978 
5 DD 00188 PUSHL 3 
00000000G 8F DD ap en PUSHL #ANLRMS$_FDLSEGLENGTH : 
1 Dd 001CO PUSHL #1 : 
f D4 Botte CLRL -(SP) : 
66 0 FB 001¢C4 CALLS #5, ANLSFORMAT_LINE 3 
7E 1C A243 3C 001C7 MOVZ2WL 28(SP)CIJ, -(SP) ; 0979 
53 DD OOICC PUSHL : 
00000000G 8F ODD ES PUSHL #ANLRMS$_FDLSEGPOS 3 
01 DD 00104 PUSHL #1 ; 
7E D4 00106 CLRL -(SP) : 
66 Oe FB 00108 CALLS #5, ANLSFORMAT_LINE 3 
D6 00108 INCL I ; 0977 
54 53 D1 001DD 7$ CMPL I, R4& ¢ 
D1 1B 001E0 BLEQU 6§ : 
50 11 A2 9A OO1E2 MOVZBL 17(SP), RO : 0985 
08 A740 DD O01E6 PUSHL TYPESCROJ 3 
00000000G 8F DD OOIEA PUSHL #ANLRMS$_FDLSEGTYPE 3 
Q1 DD 001FO PUSHL #1 : 
7E 04 QOO1F2 CLRL -(SP) é 
66 04 FB OO1F4 CALLS #4, ANLSFORMAT_LINE 3 
7E 7C OO1F7 CLROQ -(SP) 3; 0990 
55 DD OO1F9 PUSHL ID F; 
60 AE 9F OO1FB PUSHAB P : 
0000G CF 04 FB Sta CALLS #4, ANLSKEY_DESCRIPTOR ¢ 
05 50 €9 00203 BLBC RO, 8$ : 
55 06 00206 INCL ID ; 0911 
FE25 31 00208 BRW 1$ 3 
7E 01 CE 0020B 8$ MNEGL #1, =(SP) 3; 0993 
58 AE 9F OO20E PUSHAB P 3 
0000G CF 02 FB onbaa CALLS #2, ANLSBUCKET 3 
04 002146 RET ; 0996 


; Routine Size: 535 bytes, Routine Base: $CODE$ + 0260 
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 RMSFOL RMSFDL = Generate FDL for a File ise -1984 00:02:41 AX-11 Bliss-32 V4.0-74 P 3 
"V04-000 ANLSANALYZE AREAS = Generate Analysis Primaries lacsep-198¢ $1,55,00  FANALYZ SRESRAGE DE O30, age 55 
‘3? 444 ! Bsbttl *ANLSANALYZE_AREAS = Generate Analysis Primaries for Areas’ 
497 0999 1 | Functional Description: 
498 1000 1! This routine is responsible for generating the analysis_of_area 
499 1001 1! primaries, one for each area. This primary contains useful 
an 1906 : } statistics about an area. 
20¢ 1004 : Formal Parameters: 
: non 
504 1006 1 i os 
505 1007 1 ! Implicit Inputs: 
2 ein ee 
508 1010 1°! Implicit Outputs: 
494 \oi3 } global data 
311 1013 ! Returned Value: 
non 
513 1015 1! 
a\° isis : } Side Effects: 
516 1018 1 i-- 
517 1019 1 
518 1020 1 
33? 1953 § global routine anl$analyze_areas: novalue = begin 
521 1023 2 local 
522 1024 § p: bsd, 
523 1025 sp: ref block(,bytel, 
a i fo Sten oe 
526 1028 2 rt bear 
527 1029 2 
528 1030 2 
26) 193) § ! We begin by setting up a BSD for the prolog and reading it in. 
531 1033 2 init_bsd(p); 
532 1034 2 plbsd$w_size] = 1; 
533 1035 2 plbsd$l_vbnj = 1; 
eee 1038 : anl$bucket(p,0); 
238 Ht $ ! Save the VBN of the first area descriptor for later use. 
538 1040 2 sp = .plbsd$l_bufptr); 
44 ine § area_von = .splplg$b_avbn]; 
541 1028 2 ! Now we will loop through the area descriptors and generate an 
542 1044 2! analysis of them. We move from one to the next manually, rather 
543 1045 2 : than by calling anl$area_descriptor, because we don't want to 
Hs eg ! check them again. 
248 1068 init _bsd(r); 
ae8 1929 incru id from 0 to .sp[plg$b_amaxJ-1 do ( 
550 1326 ; : Compute the VBN and offset of this area descriptor. Get the 
551 105 ! descriptor and set up a pointer SP to it. 
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ANLSANALYZE_AREAS = Generate Analysis Primaries 14-Sep-1984 11:55:00 ANALYZ.SRCJRMSFDL.B32; (7) 


pibsdst von) =_.area_vbn + ig / (512/area$c_bln); 
plbsd$l“offset) = .id mod (51 /area$c_bln) *-area$c_bln; 
an( Sbucket(p ; 

sp = .pl(bsd (_bufptr) + .p(bsd$l_offset]; 


! If the area contains any reclaimed buckets, we want to count 
! them. Only prolog 3 files have such buckets. 


if .spCarea$l_avail] nequ 0 then ( 
! Get the first reclaimed bucket, using BSD R. 
repedsy.s sae? = .spCarea$b_arbktsz]; 
rlbsd$l_vbn] = .splarea$l_avail); 
anl$bucket(r,0); 
! To accumulate the statistics for this area, we will check 
! the validity of the reclaimed bucket chain, as if we were 
! im /CHECK mode. This causes statistics to be accumulated 
! via the statistics callback mechanism (see module RMSSTATS). 


; while anl$3reclaimed_bucket_header(r,false) do; 


! Now we can generate the analysis primary. 
anl$fdl_analysis_of_area(.id); 


i kk kk kk kk kk tk kh 
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00 00 09 09 09 09 09 09 09 SI NII SINUS NSP AAA AAAAAOMIUIIUI 
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); 
anl$bucket(p,-1); 
anl$bucket(r,-1) 
return; 
end; 
01FC 00000 «ENTRY ANLSANALYZE_AREAS, Save R2,R3,R4,R5,R6,R7,- 3; 1021 
58 00006 CF 9€ 00002 MOVAB ANLSBUCKET, R8 : 
5E 30 ¢2 00007 SUBL “ : 
00 6E 00 2C OO00A MOVC #0, (SP), #0, #24, P > 1033 
18 AE 0000F : 
1A AE 01 BO 00011 MOVW = #1, ~P+2 > 1034 
1c «OAL Qi DO 00015 MOVL #1, P+4 : 1035 
E p4 90019 LRL ss = (SP) > 1036 
1C AE F 0001B PUSHAB P : 
68 02 FB 0001 CALLS #2, ANLSBUCKET : 
56 24 AE dO 00021 MOVL + > 1040 
57 66 Ab 9A 00025 MOVZBL 102($P), AREA_VBN : 1041 
00 6E 00 2C 00029 movCS #0, (SPS, #0,7#24, R : 1048 
bE 002E : 
53 67 Ab 9A 0002F MOVZBL 103(SP), K3 + 1050 
53 D7 00033 DECL R ; 


RMSF DL 


RMSFDL = Generate FDL for a File 1 
_V04~-000 ANLSANALYZE_AREAS = Generate Analysis Primaries 14- 
5 4 00035 

28 i $6 ? 

50 26 98 C7 00039 

1c AE 0 4 003D 
so 50 8 Ob 78 Good? 
20 «AE 50 6 8 So0eC 
7E D4 sed 

1¢ aS 9F 00053 

68 02 FB 00056 

56 24 OE 20 AE C1 00059 

08 A6 b Benet 

1F 13 00062 

02. AE 03 A6 9B 00064 

04 AE 08 A6 DO 00069 

7E D4 sie 3 

04 AE 9F 0007 

68 02 FB 00073 

7E 04 00076 

04 AE 9F 00078 

0000G CF 02 FB 00078 

F3 50 €8 00080 

52 DD 00083 

0000G CF 01 FB 00085 

2s D6 tt 

53 52 D1 0008C 

A&8 1B 0008F 

7E 01 CE 00091 

1C AE 9F 00094 

68 O02 FB 00097 

7E 01 CE OOO9A 

04 AE YF 0009D 

68 02 FB OOOA0 

04 000A3 


i — ee 
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ANLSANALYZE_KEYS = Generate Analysis Primaries Sep-19 ANALYZ.SRCJRM 1 (8) 


obs 1988 Rsbttl "ANLSANALYZE_KEYS = Generate Analysis Primaries for Keys' 
i; 390 9 : Functional Description: , 

; $91 9 : This routine is responsible for genergt ing the analysis_of_key 
13 238 9 ' primaries, one for each key. This primary contains useful 
13 rt, > } Statistics about a key. 

595 ! Formal Parameters: 
596 ‘ non 

597 : 

59 ! Implicit Inputs: 

59 : global data 

600 ; " 

601 ! Implicit Outputs: 
602 : global data 
603 ' 

604 ! Returned Value: 
605 : none 
606 ‘ 
607 ! Side Effects: 
608 ‘ 
609 {=< 
610 
611 
global routine anl$analyze_keys: novalue = begin 
local 
p: bsd, 
id: long, 
sp: ref block(,bytel, 
i: long; 


! We will be looking at all of the key descriptors. Set up a BSD for the 
! first one. 


init_bsd(p); 
p(bsd$w_size) = 1; 
plbsd$l_vbnJ] =_1; 
plbsd$l_offset] = 0; 
! Now we can loop through the key descriptors. We move from one to the 
! next manually, rather than by calling anl$key_descriptor, because we 
! don’t want to check them again. 
incru id from 0 do ( 
! Get the key descriptor and set up SP to point at it. 


ent Sbuchet te 0); 
sp = .plbsd$l_bufptr) + .plbsd$l_offset); 
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3 
639 
640 ! Now we want to calculate the statistics for this index. We do 
641 : this by pretenste "to check the index structure. 
ose ! It can’t be done if the index is uninitialized. 
644 if not .splkey$v_initidx] then 


_RMSFD RMSFDL = Generate FDL for a File 14.58 -1984 00: AX-11 Bliss-32 V4.0-742 Page 27 
/ v04-000 ANLSANALYZE_KEYS = Generate Analysis Primaries 14- Sep-1984 9 £0850 ANALYZ.SRCIRMSFDL.B32; 1 . (Bs 
E et? 11% anl$idx_check_key_stuff(.spCkey$l_rootvbn],p,.splkey$b_rootlev]); 
E ott HB by ! Now we can generate the analysis primary. 
3 669 1130 anl$fdl_analysis_of_key(p); 
3 O23 1126 ! Now we can go on to the next descriptor, if there is one. 

E £38 1154 3 exitif (. saptks $l igxtll eglu 

S654 1155 {"v6nJ =_.splke $t ide tld: 

E 655 1156 > bsd$\— ee a they Side not fl; 

3 «656 Wiel dg 

3 657 1158 

3; 658 1159 anl$bucket(p,-1); 

3; 659 1160 2 return; 

; 660 1161 2 

3; 661 1162 1 end; 


003C 00000 ~ENTRY ANLSANALYZE_KEYS, Save R2,R3,R4,R5 : 3 1113 
5E 18 C2 00002 SUBL2 , SP ; 
18 00 6E 00 2c 90005 MOVCS #0, (SP), #0, #24, P + 1125 
02 AE 01 BO 0000B MOVW 3s #1, -P#2 + 1126 
04 AE gt 7D OOO00F MOVQ #1, P+4 3 1127 
3 p4 00013 CLRL + 1134 
7E 04 00015 1$: CLRL = (SP) : 1138 
04 AE 9F 00017 PUSHAB : 
00006 CF 02 FB OOOIA CALLS #2 ANL SBUCKET : 
52 wee 08 AE C1 OOOTF ADDL3 ps6, : 1139 
OF 10 A2 04 £0 00025 BBS “160305, 28 + 1145 
7E 09 A2 9A 0002A MOVZBL 5p) + 1146 
04 AE 9F Bonet PUSHAB ; : 
0C A2 DD 00031 PUSH lacsP ; 
00006 CF 03 FB 00034 CALLS #3, ANLSIDX.CHECK_KEY STUFF : 
5E DD 00039 28: PUSHL SP : 1150 
00006 CF 01 FB 0003B CALLS #1, ANLSFDL_ANALYSIS_OF_KEY : 
BD D3 00040 TSTL (SP) t 1154 
0D 13 00042 BEQL «6s 38 ; 
04 AE é 00 00044 MOVL (SP), P+4 + 1155 
08 AE 04 Ad 3C 90048 MOVZWL 4(SP5, P+8 : 1156 
53 D6 00040 INCL ID > 1134 
C4 11 0004F BRB 1$ ; 
7E 01 CE 00051 3$: MNEGL #1, -(SP) : 1159 
04 AE 9F 00054 PUSHAB P 
0000G CF 02 FB 00057 CALLS #2, ANLSBUCKET : 
| 04 0005C¢ ET > 1162 


; Routine Size: 93 bytes, Routine Base: S$CODE$ + 0518 


; 66 1 
: 66 1 


163 «1 
164 0 end eludom 
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_ RMSFD RMSFDL = Generate FDL for a file | a 2 16-Sep-1984 00 9 41 AX-11 ss-32 V4. ete Page 33 
_V04=000 ANLSANALYZE_KEYS = Generate Analysis Primaries 14-Sep-1984 11 00 ANALY2 SR CJRMSFDL.B32;1 (8) 
3 PSECT SUMMARY 
: Name Bytes Attributes 
EF SPLITS 143 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 SOWNS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
'3 S$CODES 1400 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
} Library Statistics 
3 a ee eee Og Ss > ae Symbols ---<---- Pages Processing 
$ File Total Lpeded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 61 0 1090 00:01.8 
3 COMMAND QUALIFIERS 
; Size: 1400 code + 183 data bytes 
3; Run Time: 0:25. 
: Elapsed Time: op FE 9 
3 Lines/CPU Min: 750 
3 Lexemes/CPU-Min: 15984 
3 ponecy Used: 248 pages 
; Compilation Complete 


; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RMSFDL/OBJ=OBJ$:RMSFDL MSRC$:RMSFDL/UPDATE=(ENH$:RMSF DL) 
} 
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